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abitrapt 


THE P0P-l9i ASR33/I5 TELETYPE TESTS PART 1, tS THE rjRST OP 
A 2 PART TEST PACKAGE USED TO TEST THE ASR33 OR ASR35 TELETYPE 
WHEN attached TO A POP-15, 


PART 1 CONTAINS SEVEN SELECTABi,E PROGRAMS USED TO TESI THE INPUT 
AND OUTPUT LOGIC, AND THE TCUETYPE READER, THE PROGRAMS ARE 

” r means of ‘ - 


selected And Controlled by 
(ACS), 


OP the accumulator SHITOHES 


tHE PROGRAMS AVAILABLE AREl 


PROB-BASlg INPUT LOGIC TESTS 
PR0|;BA8|6 OUTPUT LOGIC TESTS 
PR62-READER TEST 

PR63-rcST JAPE GENERATOR. PUNCHES CONTENTS OP LOG 000l| AND 00022. 


PRSH-TEST tape generator. PUNCHES UNARY COUNT PATTERN TEST TAPE. 
PRGB.READCR EXCRCtlER. BINARY COUNT PATTERN. 

PRG6-REA0|R EXERCISER. READS TAPE PUNCHED WITH ANY 2 CHARACTERS. 


2. RCOUiREHENTS 


2.1 equipment 

A. standard POP-IB 

B. aSRSS OR A8R35 teletype 

2.2 storage 

location 00000 THPPUGH 01515 ARE USED. 
2.9 preliminary programs 


ALL PROGRAMS NECESSARY TO INSURE CORRECT OPERATION OP BASIC 
PROCESSOR SHOULD HAVE BEEN RUN SUCCESSPULLY. 
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3| ^OADINB PROCEOURC 


TO load the program proceed as Fomowsi 

A. LOAD the object TAPE IN THE TELETYPE READERi OR IN THE 
HIGH speed reader* IF THE SySTEH HAS SAID READER* 

B. SET address SWITCHES TO 17700, 

C. SET BANK SWITCH TO "ON" pDSitlON 
0, Pi»CSS "RESET" 

E. PRESS "READ IN" 

F, THE PROGRAM WILL LOAD AND HALT WITH AC » 777777 IF 
PROGRAM' LOADED CORRECTLY, IF'THE PROGRAM 'HALTS wITH 
AC • 0, A CHECKSUM ERROR HAS OCCURRED, REPEAT THE 

loading procedure, 
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U use PPOCCDUPE 


»,1 USE PPOCEOURE FOR PROM 


A t 
B. 


c • 
&• 
Cl 

r. 

G< 

H, 


INSURE TEUCTYPE 1? ON-LlN|i 

load binary count pattern test tape in reader, IP tape is 
not spliced into a loop, position tape over punchCo section, 
not on the leader, 

TURN ON RUDER, 

SET CONSOLE REGISTER DISPLAY SHITCH TO AC, 

SET ADDRESS SNITCHES TO BBIBB, 

sEr a6 SNITCHES TO 000000 (selects PRQ0), 

press' I/O RESCTi PRESS START 

PROGRAM HALTS AT LOC 00393 TO PERMIT SITTING OP AC SNITCH 
OPTIONS. NORMAL OPERATION IS NlTH AC SNITCHES SET TO 000010, 


the AC SNITCH OPTIONS FOR THIS PROGRAM AREl 

ACI0I1 HALTS PROGRAM AT LOC 00320, AT THE EnO OP CURRENT 

ROUTINE, THE NUMB|R OF THE ROUTINE COMPLETED IS 

OlfPLAYCO IN AC, TO PROCEED, PRESS CONTINUE, 

ACIAil SELECT ROUTINE NHOSE NUMBER IS SET IN ACS12 

through AC8i7*, ROUTINE IS SELECTED UfON THE 
ROUTINE'S CbMPLCTION, 

A083IV LOOP PROGRAM, ENTIRE PROGRAM IS REPEATED, 

AOIIS thru ACSi7 * NUMBER OP ROUTINE TO BE SELECTED, 

ACIl MUST BE 1. 


REFER TO APPROPRIATE SECTION UNDER SECTION 9, "PROGRAM 
OESCR.IPTIpN," FOR SPECIFIC ROQllNE DESCRIPTIONS,* 

I, PRESS CONTINUE, 

j. PROGRAM IS EXECUTED AND HALTS AT LOC 00379, PROGRAM 
end halt,' ip no options *R| set, or ip no errors OCCUR, 

NOTE 

errors are INDICATED BY PROGRAM HALTS. REFER TO SECTION 
5,1,1* "NORMAL HALTS," OR SECTION 0.1, "ERROR HALTS AND 

descriptions," 
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4.2 use PROCCOURC FOR PR61 


A. INSURE TELETYPE IS ON-L!NEi 

B. INSURE THAT READER IS OFF, 

C. insure that there is SUFFICIENT PAPER IN TELEPRINTER, 

D. SET CONSOLE REGISTER OISPUY SM|TCH TO ACi 

E. SET ADDRESS SNITCHES TO 0S200, 

F. SET AC SWITCHES TO 000001, (SELECTS PRGl) 

C, PSESS I/O RESETl PRESS START, 

H. PROGRAM halts AT LQC 00233f FOR SETTING OF AC SWITCH 

OPTIONS, normal OPERATION IS WITH AC SNITCHES SEJ TO 000000, 

THE AC SWITCH OPTIONS FOR JHIS PROGRAM ARE I 

ACSSsl halts program AT LOC 00320, AT END OF CURRENT 

ROUTINE. NUMBIR OF ROUTINE UUSt COMPLETED IS 
displayed in AC. TO PROCEED, PRESS CONTINUE. 

ACSlil SELECT ROUTINE WHOSE NUMBER IS SET IN AC81E 

through ACS17, ROUTINE IS SELECTED UPON 
completion Of DURRINT ROUTINE, 

ACSa>V LOOP PROGRAM. ENTIRE PROGRAM IS REPEATED, 

ACSIS THRU ACS17 • NUMBER OF ROUTINE TO BE SELECTED, A08| 

MUST BE 1, (8|E SECTION ? FOR DESCRIPTIONS.) 

I. PRESS CONTINUE, 

J. PPOGRAM is EXEguTED AND HALTS AT L^^ 08279, PROGRAM END 

halts, if no options are'sct, or if'no errors occur, 

(SEE SECTIONS f.1,1 AND f»l FOR HALTS.) 
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^3 USE PROCEOURE FOR PR62 


A, INSURE TEUITYPE IS ON-UINE, 

B, load binary count pattern test tape in reader, If TAPE 
IS not spliced into a LOOPi POSITION TAPE OVER PUNCHEO 
sCCTION, NOT ON THE LEADER, 

C, TURN ON READER, 

D, SET CONSOLE REGISTER DISPLAY SWITCH TO AC, 

E, set ADDRESS SWITCHES TO 0BB00, 

r, SET A^ SWITCHES TO 000000 tSELECTS PRG2I, 

C, PRESS I/O RESETl PRESS START, 

H, PROGRAM halts AT LOC 00233"POR SETTING OF AC SWITCH OPTIONS, 
NORMAL operation IS WITH AC SWITCHES SET TO 000000, 

THE AC SWITCH OPTIONS FOR THIS PROGRAM ARE I 

ACiBiIt HALTS PROGRAM AT LOC 00320, UPON COMPLETION 

OF CURRENT ROUTINE, NUMBER Of COMPLETED 
routine is OIRRlAYEO in AC, TO PROCEEDi 
PRESS continue. 


AOSlBl SELECT ROUTINE WHOSE NUMBER IS SET IN ACS12 

through ACSETi routine IS SELECTED UPON 
ROUTINE'S COMP^iETION, 

AO02fS, LOOP PROGRAM, ENTIRE PROGRAM IS REPEATED, 

ACI12 THRU 17 • number OF ROUTINE TO B| SCLECTCO, 

ACBl MUST BE (SEE SECTION'S FOR DESCRIPTION,! 

I, PRESS CONTINUE, 

J, PROGRAM IS executed AND HALTS AT LOC 00279, PROGRAM END 
halt, if no OPTIONS ARE SET, OR |F NO ERRORS OCCUR, 

(SEE SECTION 9,1,1 OR SECIJON |,l FOR HALTSi) 

4.4 USE PROCEDURE FOR PROS 


A. INSURE teletype IS ON-LINE AND FULL DUPLEX MODE, 

0. turn off teletype REAOERi 

c, load Blank tape in punch, turn on punch, 

D. deposit in LOC 00021 AND 00022(0), THE S B|T CODE FOR 
characters to be punched, 

E. SET address switches TO 00800, 

F. SET AC SWITCHES TO 000003, (SELECTS PRG3} 

C, press' I/O RESET, PRESS START, 

H, PROGRAM PUNCHES TEST TAPE'CONTlNUOUSLY UNTIL STOPPED BY US|R, 
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4.9 use PPOCeOURE FOR PRGf 

A, INSURE TEUETYPE IS ON-UlNE, 

B. TURN OFF TEuETYPE READER. 

c. lOad Blank tape in punch, turn on punch. 

0. SET address switches TO 0B200. 

E. SiT AC SWiTCHCS TO 000004 ,( SELECTS PR04) 

F. PRESS I/O RESETl PRESS START. 

e, PROCRAH PUNCHES BINARY COUNT PATTERN TEST TAPE CONTINUOUSLY 
UNTIL STOPPED lY USER. - - 

4.4 USE PROCEDURE FOR PROS 


A. INSURE teletype IS ON-LINE. 

B. load binary count pattern test TAPI IN READER. ![ TAPE IS 
NOT SPLICED INTO A LOOP. POSITION TAPE OVER PUNCHED SECTION. 
AND NOT ON THE LEADER. 

C. TURN ON READER, 

0. SET CONSOLE REDISTER DISPLAY SWITCH TO AC. 

C. stT address SWITCHES TO 00B00, 

F. SET AC SWITCHES TO 000009, (SELECTS PROS) 

6 , PR|IS'l/0 RESETl PRESS START, 

H. program starts reading tape, set AC SWITCHES TO 049098 
TO CAUSE PROORAH TO HAlT-On-eRROR, 

1. PROCRAH RUNS continuously. UNLESS ERRORS OCCUR, OR AC 
SNITCH OPTIONS CAUSE A HALT, THE AC SWITCH OPTIONS FOR 
THIS PROGRAM ARE! 

AOl0t| program halts at LOC 006S2, AC DISPLAYS THE 
accumulated error COUNT, IF ANY, 

AC|3i; HALT-ON-ERROR, bad character is DISPLAYED IN AC. 

ACSAiV program reads tape WITH RANDOM DURATION STALLS 
AFTER EACH CHARACTER,' 

ACISil program LOCKS ON CURRENT STALL BEING USED (AC4 

MUST BE 11, (SEE'SECTION 9,l,i OR 64 FOR HALTS,! 
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4.7 U8C PROCEpURE FOR PR66 


A. INSURE TELETYPE IS ON«LlNEi 

B. load reader with 2 CHARACTER TEST TAPE, 

C. TURN ON READER, 

D. deposit IN LOC 00»2l AND 08022 THE 8-BIT CODES FOR THE 

characters punched in the Test tape, 

E. SET console RE6ISTER DISPLAY SWITCH TO AC, 

F. SET ADDRESS SWITCHES TO 00200, 

G. set AC SWITCHES TO 000006, (SELECTS PR66) 

H. PRESS I/O RESET» PRESS START, 

I. PROGRAM STARTS reading TAP|. SET AC SWITCHES TO 040000 
to CAUSE PROGRAM TO HALT-ON-ERROR . 

J. program RUNS CONTINUOUSLY, UNLESS ERRORS OCCUR, QR IF 
CAUSED TO halt BY AC SWITCH OPTIONS, 

THE AC SWITCH OPTIONS FOR THIS PROGRAM AREl 

aCSBpI PROGRAh halts at LOC 00652, AC DISPLAYS THE 

ACCUHULATEO ERROR COUNT, IF ANY, 


ACISp). HALT-ON«ERRORi bad character is displayed IN AC, 

ACf4il program reads TAPE WITH RANDOM DURATION STALLS 

AFTER EACH CHARACTER,' 

ACSSpI program locks on CURRENT STALL BEING USED 

(ACS4 must be i), (SEC SECTIONS 5,1. A OR 6,1 FOR HALTS,) 



PAGE 8 


s, operating progeoure 


5,1 PROGRAM ANO/OR OPERATOR ACTION 


5.1,1 normal halts 


LOC 00833 option SET HA^Ii POCURS DURING PRG0, PRCl, 

AND PR62 TO PERMIT SETTING Of OPTIONS, SET 
options DESIRC6 AND'PRESS CONTINUE, 

LOC 00875 PROGRAM END HA|,T, OCCURS AT END OP PRG0, 

PRGl, OR PRC2 IP NO "LOOP PROGRAM" OPTION 
IS SET, SET desired OPTIONS AND PRESS CON- 
TINUE, IF NO'OPTIONS are SETi THIS HAUT 
REOCCURS. 

LOC 00320 ROUTINE END HALT, OCCURS AT END OF CURRENT 

ROUTINE DURING PRG0, PRGl, OR PRG2 EXECUTION 
IF ACS0 IS 0N7 AC DISPLAYS ROUTINE NUMBER, 
TO PROCEED, PR|8S CONTINUE, 

LOC 00058 HALT. OCCURS DURING PRG5 AND PRG6 IF ACS0 

IS ON. THE ACCUMULATED ERROR COUNT, IF ANY, 
IS DISPLAYED SY THE AC, TO PROCEED, PRESS 
CONTINUE, 
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6. ERRORS 


6,1 ERROR HAI.IS AND DESCRIPTION 


LOC 00177 INCORRECT PROCRAM NUMBER SElECTEDt SET THE 

correct program number IN ACSi4 THROUGH ACSi7 
AND PRESS continue, 

LOC 00^56 NON»EX|STENT ROUTINE NUMBERS SELECTED, SET 

THE CORRECT ROUTINE NUMBER IN ACH2 THROUGH 
AC817 AND PRESS CONTINUE, 

LOC 00948 SYNC ERROR, OCCURS DURING PRG2 AND PR65 HHEN 

THE "SYNC" subroutine DOES NOT FIND AN ALl. IS 
CHARACTER within 896 CHARACTERS, TO RETRY, PRESS 
CONTINUE, 

LOC 00043 PROS, PRC6 READ ERROR, OCCURS IF READ ERROR IS 

detected ANO AC83 IS ON, BAD CHARACTER IS D!S= 
PLAYED IN AC, 'PftESS CONTINUE, 


LOC 00049 FOLLOW UP HALT TO PRG9 AND PRC0 READ ERROR, 

expected character is displayed in AC, 

LOC 00074 ALIGN ERROR HALT, OCCURS DURING PRG6 |F THE 

"ALIGN" SUiROUTlNE CANNOT MATCH THE DATA READ 
FROM PAPER TAP| WITH DATA STORED IN LOC 00021 
ANO 00022(8),' CHECK THAT CORE DATA iS CORRECT 
and that the test tape is CORRECT AND IN OPER- 
ATING condition, press continue to RfTRY, 

LOC 00941 PRG0, routine 0 ERROR HALT, I/O COMMAND 

700311 failed to clear THE AC. PRESSING 
CONTINUE enter! SCOPE LOOP THAT SETS YhE 
AC TO ALL tsriSSQES T00311 COHHANO TO 
clear the AC ANO REPEATS, PROGRAM MU^T 
BE RESTARTED MANUALUT. 

LOC 00709 PR60, ROUTINE % ERROR HALT, AT LEAST 800 MS AFTER 

700322 COMMAND THE READER FLAG FAILED TO SET, 

OR KSF INSTRUCIION IS FAILING, PRESSING CON- 
TINUE REPEATS the TEST, 

LOC 010X0 PRG0, ROUTINE i ERROR HALT A, SAME AS PR60, 

ROUTINE 1 ERROR HALT, 

LOC 01012 PR60, ROUTINE 8 ERROR HALT B, KSF FAILURE, 

WITH READER FLAG SET, KSF INSTRUCTION 
failed TO SKIP, pressing CONTINUE ENTERS 
SCOPE LOOP THAT SKIPS ON FLAG CONTINUOUSLY, 

MANUAL RESTART, 
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(6,1 gONT'O) 


LOC 01041 PRC0I ROUTINE 9 ERROR HALT A, SAKE A! PRG0i 

ROUTINE 1 ERROR HALT, 

LOC 01043 PRO0* ROUTINE 3 ERROR HALT B. THE 70B312 

COHHANO <KRB) PAILEO TO RESET THE READER 
FLAG OR THE KSf COHHANO SKIPPED WITH THE 
READER flag » 0, PRESSING CONTINUE ENTERS 
SCOPE LOOP THAT clears THE FLAG AND SKIPS 

ON flag continuously, hanual restart. 

LOC 01063 PR60. ROUTINE 4 ERROR HALT A. UNEXPECTED 

INtERRUPT. AC contains THE lORS WORD. TURN 
OFF DEVICE causing THE INTERRUPT (OTHER THAN 
THE TELETYPE), PRESS CONTINUE TO REPlAT TEST, 

LOC 01100 PR60, ROUTINE 4 ERROR HALT B, WITH READER 

flag ■ 1. AND INTERRUPT ENABLED, NO INTERRUPT 
OCCURRED, PRESSING CONTINUE ENTERS SCOPE LOOP 
THAT TURNS ON'InTERRUPT CONTINUOUSLY, HANUAL 
RESTART. 

LOC 01131 PR60, ROUTINE 0 ERROR HALT, TIHINQ ERROR, 

flag not 1 110H8 AFTER 700320 COHHANO, 

PRESSING CONTINUE ENTERS SCOPE LOOP THAT 
READS TAPE CONTINUOUSLY TO AlO IN TIhInG 
AOUUSTHCNT. 

LOC 01171 PRO0, ROUTINE 6 ERROR HALT A, REREAD ERROR, 

A reread of THE TELETYPE READER BUFFER DIO 
NOT HATCH WITH THE ORIGINAL READ, THE "NEW” 
CHARACTER IS DISPLAYED IN AC, PRESS OONTlNUC. 

LOC 01173 PR00, ROUTINE f ERROR HALT B, FOLLOW UP HALT 

TO PRG0, ROUTINE 6 ERROR HALT A, THE "OLO" 
CHARACTER iS DISPLAYEO IN AC, PRESSING CON- 
TINUE RESUMED TEST, 



page li 


(6.1 CONT'O) 


LOC 01227 PP6l, ROUTINE G ERROR HALT A, AT LEAST 200 MS AFTER 

TlS command THE PRINTER FLAG FAILED TO SET OR 
TSF command FAIlEO TO SKIP, PRESS I NC’ CONT I NUE RETRIES 
THE TEST, 

LOC 01231 PRGl, ROUTINE » ERROR HALT B. WITH FLAG ■ I, 

TSF COMMAND FAILED TO SKIP, PRESSING CONTINUE 
enters scope loop that SKIPS ON FLAG CONTINUOUSLY, 
MANUAL RESTART, 

LOC 01*51 PRGl, ROUTINE % ERROR HALT, TCF COMMAND FAILED 

TO CLEAR the FLAG, OR TSF COMMAND SKIPPED WITH 
flag ■ 0. PRfSSiNG CONTINUE ENTERS S^OPE LOOP 
THAT CLEARS THE FLAG AND THEN'SKIPS ON FLAG 

continuously, manual restart, 

LOC 01276 PRGl, ROUTINE 2 ERROR HALT, TCF COMMAND FAILED 

TO CLEAR the FLAG, PRESSING CONTINUE ENTERS 
SCOPE LOOP THAT ISSUES TCF COMMAND CONTINUOUSLY, 

MANUAL restart; 


LOC 01917 PRGl, ROUTINE 9 ERROR HALT A, UNEXPECTED 

interrupt, turn off any device that may be 

CAUSING THE INTERRUPT, (THE TELETYPE READER 
MUST BE OFF.J PREfS CONTINUE TO REPEAT TEST, 

LOC 01935 PRGl, ROUTINE 3 ERROR HALT B, WITH PRINTER/ 

PUNCH FLAG « TaNO INTERRUPT ENABLED, NO IN- 
TERRUPT OCCURRID,' PRISSING CdNTiNUC ENTERS 
SCOPE LOOP THAT TURNSON INTERRUPT CONTINU- 
OUSLY. MANUAL restart, 

LOC 01966 PRGl, ROUTINE 4 ERROR HALT, TIMING ERROR, 

flag not I 110MS after TLS COMMAND, PRESSING 
CONTINUE enters SCOPE LOOP THAT RUNS PRINTER 
CONTINUOUSLY TO AID IN TIMING ADJUSTMENT, 
MANUAL restart. 
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(6|], CONT'D) 


LOC 01422 PR62i ROUTINE 0 ERROR HALT A. READ ERROR. 

BAD character IN AC, PRESS CONTINUE, 

LOC 01424 PR62, ROUTINE 0 ERROR HALT 8. POLLOW UP 

HALT TO PRG2, ROUTINE » ERROR HALT A, 

expected character is Displayed in ac, 

PRESSING CONTINUE RESUMES TESTING. 

LOC 01499 PRG2, ROUTINE %, ERROR HALT A, READ ERROR, 

BAD character In AC, PRESS CONTINUE, 

LOC 01499 PR62, ROUTINE 1 ERROR HALT B, fOLLOW UP 

HALT TO PR02i ROUTINE i ERROR HALT A. 

EXPECTED CHARACTER IS DISPLAYED IN AC, 
PRESS CONTINUE TO RESUME TESTING, 

LOC 01910 PR62, ROUTINE 2 ERROR HALT A. READ ERROR. 

BAD CHARACTER IN AC. PRESS CONTINUE, 

LOC 01912 PR02, ROUTINE 2 ERROR HALT B, FOLLOW UP 

HALT TO PR62i ROUTINE 2 ERROR HALT A, 
expected character is displayed in ACt 
PRESS CONtlNUE TO RESUME TESTING, 
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7, restrictions 

7,1 starting restrictions 

all programs must be started at ADORESS 00800, 

7,8 operating restrictions 

PRG0 AND PRGl MUST HAVE BEEN RUN SUCCESSFULLY PRIOR TO 
EXECUTING any OTHER PROGRAM, 

problems OETECTEO during EXECUTION OF PRG0 AND PRGl SHOULD 
BE CORRECTED AS THEY OCCUR, 

8, miscellaneous 


6.1 execution time 


PR60 execution TIMEI 1 MIN 15 SEC (MAX) 

PRGl EXECuhoN TlMCi 30 SEC (MAX) 

PRC2 EXECUTION TIMEI 80 MIN (MAX) 

PRtSS THROUOH PRG6 ARE CONYINUOUSLY RUN PROGRAMS, 

6.2 TESTJARES 


MAIN0EC-RR-D2G3-PT BINARY COUNT PATTERN TEST TAPE IS PROVIDED 

hith This program, for easy use, the tape should be spi.iceo 

INTO A LOOP, MATCHING THE PATTERN OF THE SPLICE POINT, 
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9, PROGRAM DESCRIPTION 


THE P0P-19» ASRa3/35 TELETYPE TESTS PART 1, CONSISTS Of 7 
PROGRAMS NUMBERED PROM Z TQ 6, 

9,1 PRGB - BASIC input LOGIC TESTS 


THIS PROGRAM CONTAINS 7 ROUTINES NUMBERED PROM 0 TO 6 
(OCTAL). 

RTN0 checks that lOT 700311 IS ABl,E TO CLEAR THE AC, 

DONE 1000 TIMES, 

RTNl CHECKS THAT READER FLAG IS SET 200 MS AFTER 700322 
lOT (SELECT READER), FAILURE TO SKIP INDlCAtES 
THAT'FLAG IS NOT SET, OR KSF COMMAND FAILURE TO 
SKIP. DONE 100 TIMES, 

RTN2 CHECKS THAT KSF COMMAND (lOT 700301) SKIPS WITH FLAG SET, 
DONE 1000 TIMES, 

RTN3 CHECKS THAT KSF COMMAND (lOT 700301) DOES NOJ SKIP 
WITH FLAG • 0, DONE S00 TIMES. 

RTN4 CHECKS THAT NO OTHER DEVICE CAN CAUSE AN INT|RRUPT 
AND that reader IS CAPABLE OF INTERRUPTING, 

RTN9 PADER TIMING TEST, 

RTNA READS A CHARACTER FROM TAPE AND SAVES IT. IT THEN 
REREADS THE TTI STATICALLT 1000 TIMES TO CHECK FOR 

Consistent reading frOm tTi,'256 characters are 

READ IN THIS MANNER, 
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9,2 PRGl - BASIC OUTPUT t.081C TESTS 


THIS PROCHAM CONTAINS 5 ROUTINES NUMBERED FROM 0 TO 4, 

RTN0 CHECKS THAT PRINTER/PUNCH FLAG IS SET 200 MS AFTER 

TLS COMMAND, FAILURE TO SKIP IN FLAG INDICATES THAT 
FLAC'IS NOT SET OR TSF FAILURE, IF TSF SKIPSi 
ROUTINE THEN SKIPS ON FLAG 1000 TIMES TO CHECK 
FOR reliable SKIPPING, 

RTNl CHECKS THAT TSF COMMAND DOES NOT SKIP WITH FLAG • 0, 
DONE 1000 TIMES, 

RTN2 CHECKS THAT TCF COMMAND IS ABLE TO CLEAR FLAG, 

DONE 100 TIMES, 

RTN3 CHECKS THAT NO OTHER DEVICE CAN INTERRUPT AN? THAT 
PRINTER/PUNCH IS ABLE TO INTERRUPT, 

RTN4 TIMING TEST, 


PR62,- READER TEST 

THIS program CONTAINS 3 ROUTINES NUMBERED FROM 0 TO 2, 

RTN0 READS 4099 CHARACTERS OF BINARY COUNT PATTERN AT 
FULL SPEED, 

RTNl READS 2000 CHARACTERS OF BINARY COUNT PATTERN WITH 
RANDOM STALLS BETWEEN CHARACTERS, 

RTN2 READS 100 RANDOM LENGTH CHARACTER BLOCKS, FIXED 
STALL BEtWEEN CHARACTERS IN A BlOOK, STALL IS 
changed FOR EACH BLOCK, AND IS DETERMINED AT RANDOM, 

9,4 PROS - TEST TAPE GENERATOR 


THIS PROGRAM PUNCHES TEST TAPE WITH CHARACTERS WHOSE 
CODE is b|T in LOC 00021 AND 00022, 

9,9 PRG4 - TEST TAPE GENERATOR 


PUNCHES BINARY COUNT PATTERN TEST TAPE, 
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9,6 PRC5 ■ READER EXERCISER. BINARY COUNT PATTERN 


THIS PR06HAH READS AND CHECKS BINARY COUNT PATTERN TEST TAPE, 
NORHAC TESt mode is WITH FULl, SPEED OPtRATION^ ACSA »'l 
GIVES RANDOM STALUS BETWEEN CHARACTERS, ACS5 = 1 L.OCKS 
PROGRAM ON CURRENT STAi,L UCS4 MUST BE ON), 

9,7 PR66 * reader EXERCISER, LOC AND 00022 


READS TEST TAPE PUNCHED WITH ANY 2 TEST CHARACTERS, l,OC 
01021 AND 00022 MUST CONTAIN THE CODES FOR CHARACTERS |N 
TEST tape, normal TE$T MODE |S WITH PULL SPEED OPERATION, 
AC84 • 1 GIVES RANDOM STALLS BETWEEN CHARACTERS) ACS9 4 1 
LOCKS program in CURRENT STALL, (ACS4 MUST BE ON), 


(LAST PAGE) 



/PDP-15 AND ASR33/35 TELETYPE TEST - PARTI 

/COPYRIGHT 1969. DIGITAL EQUIPMENT CORP., MaYNaRD, MASS. 

/ 

/prg0-baSic input control LOGIC Test, uses reader 
/PRGI-BaSic OUTPUT CONTROL LOGIC TeST. USeS PRINTER 
/PRG2-REA0ER TEST 

/PRG3-TEST tape GENERATOR. PUNCHES CONTENTS OF LOc 0021 AND 0022 
/pRG4-pUNCHES BINARY CqUNT PATTERN TEST TApE. 

/PRG5-READER EXERCISER. BINARY COUNT PATTERN 
/PRG6-READER exerciser, READS TaPE PUNCHED WITH aNY 
/ 7 . characters. LOC 0021 AND 0022 CONTAINS COOES 

/ FOR characters in TaPE. 

/ 

/ACS-OPTIONS 

/ 

/ACS0-HALT aT END OF ROUTINE. RTN NUMBER IN AC FOR PRG0 , PRGl . PRG2 . 

/ -Halt error count in ac for prgs and prg6, 

/ACSI-SElECT routine whose number IS SET IN ACS12 THROUGH ACS17. 

/ (PRG0,PRG1,PRG2) . 

/ACS2-L00P PROGRAM. ( PRC0 . PRGl , PRG2 > 

/ACS3-HALT ON ERROR. BAD CHARACTER IN AC (PRG5.PRG6) 

/ACS4-STALL (PRG5,PRG6) 

/ACS5-L0CK ON STALL (PRG5,PRG6) 

.EJECT 
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15TTY1 


. ABS 


00020 



.LOC 2 

00020 

000000 

kstart 

0 

00021 

000000 

PTEMP 

0 

00022 

000000 

PTEMPi 

0 

00023 

000000 

DELAYM 

0 

00024 

620002 


JMP* 2 

00025 

000000 


0 

00026 

000077 

tstmsk 

77 

00027 

000017 

prgmsk 

17 

00030 

777772 

prglim 

-6 

00031 

000000 

prgnum 

0 

00032 

000033 

PSW 

prgtab 

00033 

000717 

prgtab 

PRG0 

00034 

001201 


PrGI 

00035 

001373 


PRG2 

00036 

000571 


PRG3 

00037 

000576 


PRG4 

00040 

000602 


PRG5 

00041 

000611 


PRG6 

00042 

000000 

TEMP 

0 

00043 

000000 

CURTST 

0 

00044 

000000 

RTNNO 

0 

00045 

000000 

NXTST 

0 

00046 

000000 

MSCTR 

0 

00047 

000000 

MILCTR 

0 

00050 

777142 

Mill 

-636 

00051 

000000 

CTRA 

0 

00052 

000000 

CTRB 

0 

00053 

000000 

SCNT 

0 

00054 

777401 

MRBOUT 

-377 

00055 

000000 

PFLAG 

0 

00056 

040000 

SR3MSK 

040000 

00057 

020000 

SR4MSK 

020000 

00060 

010000 

SR5MSK 

010000 

00061 

000001 

Kl 

1 


700322 

KRA=700322 


/ 


EJECT 
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15TTY1 


00177 



.LOG 177 


00177 

740040 


HLT 


00200 

750004 

start 

LAS 


00201 

500027 


AND 

PRGMSK 

00202 

340030 


Tad 

PRGLIM 

00203 

740300 


SMAJSZa 


00204 

600177 


JMP 

177 

00205 

750004 


LAS 


00206 

500027 


AND 

PRGMSK 

00207 

040031 


OAC 

PRGNUm 

00210 

340032 


tad 

PSW 

00211 

040042 


DAC 

TEMP 

00212 

220042 


LAC* 

temp 

00213 

040221 


DAC 

PRGADR 

00214 

100545 


JMS 

move 

00215 

000024 


24 


00216 

000001 


1 


00217 

777776 


-2 


00220 

620221 


JMP* 

.+1 

00221 

000000 

PRGAOR 

0 


00233 



.LOC 233 


00233 

750040 

SRSET 

HLTtCLA 


00234 

200020 

getrdy 

LAC 

kstart 

00235 

040045 


OAC 

NXTST 

00236 

100277 


JMS 

EORWO 

00237 

750004 


LAS 


00240 

742010 


RTL 


00241 

740400 


SNL 


00242 

620043 


JMP* 

cuRt^t 

00243 

750004 


LAS 


00244 

500026 


AND 

TSTMSK 

00245 

740001 


CMA 


00246 

340061 


TAD 

Kl 

00247 

340044 


TAD 

RTNNO 

00250 

751200 


SNA5CLA 


00251 

620043 


JMP* 

CURTST 

00252 

200045 


LAC 

NXTST 

00253 

340061 


Tad 

Kl 

00254 

750200 


SZAtCLA 


00255 

600236 


JMp 

GETrDY*2 

00256 

750040 

incrtn 

HLT!CLa 


00257 

600234 


JMP 

getrdy 




.EJECT 



/INCORRECT PROGRAM NUMBER 
/READ SWITCHES 
/AND with PRG mask 

/ado program limit 
/Valid program number? 

/NO. 

/YES, READ SWITCHES 

/SAVE program number 
/DEVELOPE PROGRAM 

/address. 

/STORE ADDRESS 

/initialize interrupt 

/AREA 


/SELECT OPTIONS 
/GET AODR OE 1ST RTN 
/STORE AT NXTST 

/read switches 
/select routine? 

/NO, SjaRj wiyH Current routine 
/YES, READ SWITCHES 


/IS IT THIS RTN? 

/YES, GO DO IT. 

/NO. 

/Last routine? 

/NO. 

/YES, incorrect ROUTINE NUMBER. 
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00260 

100313 

chain 

JMS 

Shalt 

/Halt? (sR(i) 

00261 

75H004 


las 


/Read switches 

00262 

742010 


rtl 



00263 

741400 


S2l 


/routine SElLCT? (SRI) 

00?64 

600234 


JMP 

GEtrOY 

/YEs. 

00265 

200045 


LAC 

nxtst 


00266 

340061 


TAD 

Kl 


00267 

750200 


S2AICLA 


/LAST RTN? 

00270 

600236 


JMP 

GETRDY+2 /no. 


00271 

750004 


LAS 


/yes. 

00272 

742010 


RTL 



00273 

751100 


SPA'ClA 


/LOOP program? (SR2) 

00274 

600234 


JMP 

GEtRDY 


00275 

750040 

PRGENO 

HLT !CLa 


/PROG END halt 

00276 

600260 


JMP 

CHAIN 


00277 

000000 

EORWO 

0 



00300 

220045 


LAC* 

NXTST 

/GET next RTN NO. 

00301 

040044 


DAC 

RTNNO 

/STORE aT RTNNO 

00302 

440045 


IS2 

NXTST 


00303 

200045 


LAC 

nxtst 

/SET current 

00304 

040042 


OAC 

temp 

/rtn Number 

00305 

440045 


iSi 

nxtst 


00306 

200045 


LAC 

NXTST 

/set current 

00307 

040043 


OAC 

CURTST 

/routine ador 

00310 

220042 


Lac* 

temp 

/set next 

00311 

040045 


DAC 

NXTST 

/RTN ADDR 

00312 

620277 


JMP* 

FOrWO 

/EXIT 

00313 

000000 

y 

SHALT 

0 



00314 

750004 


LAS 


/READ SW 

00315 

740100 


SMA 


/HALT? (SR0) 

00316 

620313 


JMP* 

SHALT 

/NO, EXIT 

003 I 7 

200044 


LAC 

RTNNO 


00320 

740040 


HLT 


/ROUTINE end halt. 

00321 

620313 


JMP* 

SHALT 


00322 

000000 

STCTR 

0 



00323 

220322 


LAC* 

STCTR 

/GET LOC AOOrEsS 

00324 

040042 


OAC 

TEMP 

/SAVE AT TEMP 

00325 

440322 


IS2 

STCTR 


00326 

220322 


LAC* 

STCTR 

/GET COUNT and 

00327 

06004^ 


DAC* 

TEMP 

/STORE aT DESIRED LOC. 

00330 

440322 


IS2 

stctr 


00331 

754000 


cla:cll 



00332 

620322 


JMP* 

STCTR 

/EXIT 


100322 

SETLOC= 

JMS STCTR 
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00333 

000000 

DLYMS 

0 


00334 

200023 


Lac 

DELaYM 

0033*? 

040046 


DAC 

MSCTR 

00336 

200050 


LAC 

Mill 

00337 

040047 


DAC 

MILCTR 

00340 

440047 


IS2 

MILCTR 

00341 

600340 


JMP 

.-1 

00342 

44004^ 


IS2 

MSCTR 

00343 

600336 


JMP 

.“5 

00344 

754000 


ClA!Cll 


00345 

620333 


JMP« 

dlyms 



/Random 

number generator 

00346 

000000 

rangen 

0 


00347 

200374 


LAC 

RANOEX 

00350 

541514 


SAD 

(RANTBL+10 

00351 

741000 


SKP 


00352 

600362 


JMP 

RANTAD-1 

00353 

201515 


LAC 

(RANTBL 

00354 

040374 


DAC 

RANOEX 

00355 

200373 


LAC 

RANCON 

00356 

745100 


SPAtCLL 


00357 

744002 


STL 


00360 

740010 


RAL 


00361 

040373 


DAC 

RANCON 

00362 

220374 


LAC* 

RANOEX 

00363 

340373 

rantad 

TAD 

RANCON 

00364 

060374 


DAC* 

RANOEX 

00365 

200405 


LAC 

Ransav 

00366 

740020 


RAR 


00367 

360374 


TAD* 

RANOEX 

00370 

040405 


DAC 

ransav 

00371 

440374 


ISZ 

RANOEX 

00372 

620346 


JMP* 

RANGEN 

00373 

^23456 

RANCON 

T23456 


00374 

000405 

Ranqex 

RaNTbL+10 


00375 

654321 

RAnTBl 

654321 


00376 

361416 


361416 


00377 

055363 


055363 


00400 

546060 


546060 


00401 

243035 


243035 


00402 

762572 


762572 


00403 

453237 


453237 


00404 

150214 


150214 


00405 

000000 

ransav 

/ 

0 



.EJECT 


/get ms count 

/STORE IN mSCTR 
/GET 1 f^S constant 
/STORE AT MILCTR 
/delayed 1 MS? 

/NO 

/YES. DONE delaying? 
/NO. 

/YES. 
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00 ^ 0 ^ 

000000 

INITPT 

0 


/initialize count Pattern 

00407 

140412 



PTP 

/0 TO PT0 

00410 

750000 


cla 


/0 TO AC 

00411 

620406 


JMp* 

INITPT 

/exit. 

00412 

000000 

PTCI 

0 



00413 

000000 

PTl 

0 



00414 

000377 

PTMSK 

377 



00415 

000000 

GETPTT 

0 



00416 

200412 


LAC 

PT 0 

/PT 0 TO PTl 

00417 

040413 


OAC 

PTl 


00420 

340061 


TAD 

Kl 


00421 

500414 


AND 

PTMSK 


00422 

040412 


DAC 

PT 0 

/PT 0+1 TO PT 0 

00423 

200413 


LAC 

PTl 

/GET PTl 

00424 

620415 

/ 

JMP* 

GETPTT 

/EXIT 

00425 

000000 

/ 

PUNCH 

0 



00426 

440055 


IS? 

PFLaG 

/set pflag 

00427 

700406 


TLS 


/punCh/print 

00430 

200055 


LAC 

pFLAG 


00431 

750200 


S^A !CLA 


/FLAG RESET? 

00432 

741000 


SKP 


/NO 

00433 

600436 


JMP 

.+3 


00434 

700401 


Tsr 


/SAVE printing? 

00435 

600430 


JMP 

.-5 

/NO. 

00436 

700402 


TCF 


/YES, CLEAR FLAG 

00437 

140055 


D 2 M 

PFLAG 

/0 TO PFLAG 

00440 

620425 

/ 

JMP* 

PUNCH 

/EXIT. 

00441 

000000 

STALL 

0 



00442 

750004 


las 


/READ SWITCHES 

00443 

500057 


AND 

SR 4 MSK 


00444 

751200 


SNAICLA 


/STALL? <ASC4) 

00445 

620441 


JMP* 

stall 

/NO. EXIT 

00446 

750004 


LAS 


/Yes. read switches 

00447 

500060 


AND 

SR 5 MSK 


00450 

750200 


S?A!CLA 


/LOCK ON stall? 

00451 

741000 


SKP 


/YES. 

00452 

100474 


JMS 

OLCNT 

/generate Random count 

00453 

100333 


JMS 

olyms 

/stall. 

00454 

620441 


JMP* 

stall 

/EXIT. 
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/ 


00455 

000000 

CHRCNT 

0 



00456 

100346 


JMS 

RaNGEN 

/SET Random number. 

00457 

500473 


and 

CRMSK 

/REMOVE EXCESS BITS 

00460 

741200 


SNA 


/HERO? 

00461 

600456 


JMP 

CHRCNT+i /YES. 


00462 

740001 


CMA 



00463 

340061 


TAD 

Kl 


00464 

040053 


OAC 

SCNT 


00465 

220455 


LAC» 

CHRCNT 


00466 

040042 


OAC 

TEMP 


00467 

200053 


LAC 

SCNT 


00470 

060042 


OAC# 

temp 

/STORE AT desired AODR 

00471 

440455 


ISE 

CHRCNT 


00472 

620455 


JMP* 

CHRCNT 

/EXIT 

00473 

000077 

CRMSK 

77 



00474 

000000 

OLCNT 

0 



00475 

100346 


JMS 

rangen 

/GET Random number 

00476 

500505 


ANO 

olymsk 

/REMOVE EXCESS BITS 

00477 

741200 


SNA 


/ZERO? 

00500 

600475 


JMP 

OLCNT+1 

/YES 

00501 

740001 


CMA 



00502 

340061 


TAO 

Kl 


00503 

040023 


OAC 

DELAYM 


00504 

620474 


JMP* 

OLCNT 

/EXIT 

00505 

000277 

OLYMSK 

277 



00506 

000000 

y 

CHCK 

0 



00507 

040523 


OAc 

WCHK 

/Ac TO WCHK 

00510 

220506 


LAC* 

CHCK 

/GET Compare data 

00511 

740001 


CMA 



00512 

340061 


TAD 

Kl 


00513 

340523 


TAD 

WCHK 


00514 

440506 


IS2 

CHCK 

/SET UP EOR UNEG EXIT 

00515 

750200 


S2ArCLA 


/equal? 

005i6 

6005^1 


JMP 

.♦3 

/NO. 

00517 

440506 


IS2 

CHcK 

/yes. Set up eQUal exi 

00520 

620506 


JMP* 

ChCk 

/EXIT 

00521 

200523 


LAC 

WCHK 

/rESTOrE AC 

00522 

620506 


JMP* 

CHCK 

/EXIT 

00523 

000000 

WCHK 

0 




/ 
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/ 


00524 

000000 

SYNK 

0 



00525 

100322 


setloc 


/-256 TO CTSK 

00526 

000544 


CTSK 



00527 

777400 


-400 



00530 

700322 

SYNk A 

kRA 


/START READER. 

00531 

700301 


KsF 


/FLAGl? 

00532 

600531 


JMP 

.-1 

/NO 

00533 

700312 


KRB 


/READ 

00534 

340054 


TAO 

MRBOUT 

/ 

00535 

750200 


S2A!CLA 


/377? 

00536 

741000 


SKP 


/NO. 

00537 

620524 


JMP* 

SYNK 

/yes. exit 

00540 

440544 


IS2 

CTSK 


00541 

600530 


JMP 

synka 


00542 

740040 


hit 


/CAN’T SYnK 

00543 

600525 


JMP 

SyNK*! 

/REPEAT. 

00544 

000000 

CTSK 

0 



00545 

000000 

MOVE 

0 


/MOVE subroutine 

00546 

220545 


LAC* 

MOVE 

/GET and store 

00547 

040566 


OAC 

Faddr 

/"FROM" ADDR 

00530 

440545 


IS2 

MOVE 


00551 

220545 


LAC* 

MOVE 

/GET ANO store 

00552 

040567 


OAC 

tador 

/"TO" ADOR 

00553 

440545 


IS2 

MOVE 


00554 

220545 


lac* 

MOVE 

/get and store 

00555 

040570 


DAC 

MCtr 

/move count. 

00556 

440545 


IS2 

MOVE 


00557 

220566 

MOVEA 

LAC* 

faddr 

/GET "NEW WORD" 

00560 

060567 


OAC* 

taddr 

/STORE AT "TO" LOC 

00561 

440566 


ISZ 

faddr 

/update addresses 

00562 

440567 


IS2 

Taddr 


00563 

440570 


IS2 

MCTR 

/DONE MOVING? 

00564 

600557 


JMP 

MOVEA 

/NO. 

00565 

620545 


JMP* 

MOVE 

/YES, EXIT. 

00566 

000000 

faddr 

0 



00567 

000000 

TADDR 

0 



00570 

000000 

MCTR 

0 




/ 
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/Program 

3 Punches 

test tape 

with characters stored in 



/SYMBOLIC 

location 

PTEMP and 

ptempi , 

00571 

200021 

PRG3 

LAC 

PTEMP 

/get C(PTEMP) 

00572 

100425 


JMS 

PUNCH 

/PUNCH 

00573 

200022 


LAC 

PTEMPI 

/GET CtPTEMPl) 

00574 

100425 


JMS 

PUNCH 

/PUNCH 

00575 

600571 


JMp 

PRG3 

/repeat. 



/PROGRAM 4 

PUNCHES 

test Tape 

With binary count pattern 

00576 

100406 

PRG4 

JMS 

INITPT 

/initiali2e Pattern 

00577 

I 004 I 5 


JMS 

GETPTT 

/get binary character 

00600 

100425 


JMS 

PUNCH 

/PUNCH it 

00601 

600577 


JMP 

.-2 

/repeat. 



/PROGRAM 

5 reads count Pattern, stalls optional 

00602 

100524 

PRG5 

JMS 

SYNK 

/SYNK Tape 

00603 

140654 


02M 

ERRCTR 

/0 TO errctr 

0060 "^ 

100406 


JMS 

INITPT 

/INITIALI2E binary PATTERN 

00605 

700322 


kRa 


/staRt reader 

00606 

100415 

SRT0A 

JMS 

gEtptt 

/qET Binary number 

00607 

100617 


JMS 

READCK 

/read and check character 

00610 

600606 


JMP 

SRT 0 A 

/REPEAT 



/PROGRAM 

6 reads Data erom Tape and matches aGaInst characters 



/IN PTemP 

and ptempi. Random 

delay between characters optional 

00611 

140654 

PRG 6 

02 M 

errctr 

/0 TO errctr 

00612 

100655 


JMS 

ALIGN 


00613 

700322 


KRA 


/start reader 

00614 

100705 

SRT2A 

JMS 

GIVE 

/get Character 

00615 

100617 


JMS 

READCK 

/READ AND CHECK 

00616 

600614 


JMP 

SRT 2 A 

/REPEAT 

00617 

000000 

REAOCK 

0 



00620 

040627 


OAC 

SBSP 


00621 

100441 


JMS 

STALL 


00622 

700301 


KSF 


/READER READY? 

00623 

600622 


JMP 

.-1 

/NO, REPEAT, 

006^4 

700312 


KRB 


/READ, start reader 

00625 

700322 


KRa 



00626 

100506 


JMS 

ChCK 


00627 

000000 

SBSp 

0 



00630 

600632 


JMp 

Errcnt 

/Error. 

00631 

600646 


JMP 

HLTTST 

/OK. 

00632 

440654 

errcnt 

IS2 

errctr 

/+! TO errctr 

00633 

600636 


JMP 

.♦3 


00634 

750001 


CLA tCMA 



00635 

040654 


OAC 

ERRCTR 

/nil TO errctr 

00636 

750004 


LAS 


/READ SWITCHES 

00637 

500056 


AND 

SR3MSK 


00640 

751200 


SNAiCLA 


/HALT ON ERROR (SR3) 

00641 

600646 


JMP 

HLTTST 

/NO 

00642 

200523 


LAC 

WCHK 

/GET BAD char 

00643 

740040 


HLT 


/YES 

00644 

200627 


lac 

SBSP 

/gET good Char 

00645 

740040 


HLT 


/GOOD char in AC 
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00646 

750004 

HLTTST 

LAS 



00647 

750100 


SMAICLA 


/HALT? 

00650 

620617 


JMP* 

REAOCK 

/NO, EXIT 

0065^ 

200654 


LAC 

errctr 

/GET ERHOR count 

00652 

740040 


hlt 


/error count in aC 

00653 

620617 


JMP* 

readck 

/EXIT 

00654 

000000 

ErrCTr 

y 

0 



00655 

000000 

f 

ALIGN 

0 



00656 

700322 


KRA 



00657 

700301 


KSF 


/READER ready? 

00660 

600657 


JMP 

.-1 


00661 

700312 


KR8 


/READ character 

00662 

740001 


CMA 



00663 

340061 


TAD 

Kl 


00664 

040704 


DAC 

ATEMP 


00665 

340021 


TAD 

PTEMP 


00666 

751200 


snascla 


/IS IT char in ptemp? 

00667 

600676 


JMP 

ALl 

/YES. 

00670 

200704 


LAC 

ATEMP 

/NO. 

00671 

340022 


tad 

PTEMPl 


00672 

751200 


SNA !CLA 


/IS IT ChAR in PTEMPl? 

00673 

600701 


JMP 

AL2 

/YES. 

00674 

750040 


HLT!CLA 


/NO, ERROR. 

00675 

600656 


JMP 

ALIGN+l 

/REPEAT. 

00676 

740001 

ALi 

CMA 



00677 

040703 


DAC 

IND 

/SET IND TO -1 

00700 

620655 


JMP* 

ALIGN 


00701 

140703 

AL2 

D2M 

IND 

/0 TO IND 

00702 

620655 


JMP* 

ALIGN 


00703 

000000 

IND 

0 



00704 

000000 

ATEMP 

0 



00705 

000000 

GIVE 

0 



00706 

440703 


IS2 

IND 

/INDsl? 

00707 

600713 


JMP 

.♦4 

/NO 

00710 

140703 


D2M 

IND 

/YES 

00711 

200022 


lac 

PTEMPl 

/get tempi 

00712 

620705 


JMP* 

GIVE 

/EXIT 

00713 

750001 


CLAiCMA 



00714 

040703 


DAC 

IND 

/-I TO IND 

00715 

200021 


LAC 

PTEMP 

/GET PTEMP 

00716 

620705 


JMP* 

GIVE 

/EXIT. 


/ 
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/program 0. ASR33/35 TELETYPE! BASIC INPUT TESTS. 

/program Checks input iot'S, interrupt, anq ReaqeR timing. 


P)0717 

100322 

PrGB 

SETLOC 


/SET Kstart to initial 

00720 

000020 


kstart 


/ROUTINE address 

00721 

000723 


P0TS0 



00722 

600233 

/ 

JMP 

srset 

/GO start program. 

00723 

000000 

P 0 TS 0 

0 



00724 

000746 


P0TS1 





/ISSUE 

700311 OP 

WiTh AC=777777. AC 

Should go to 0 

00725 

100322 


sEtloc 


/-1000 tO ctRa 

00726 

000051 


ctra 



00727 

776030 


-1750 



00730 

750001 

P0TS0A 

ClA’CmA 


/-I To AC 

00731 

700311 


700311 


/clear AC. 

00732 

740000 


NOP 



00733 

740000 


NOP 



00734 

740200 


S2A 


/ACs0? 

00735 

600741 


JMP 

P0E0 

/NO, ERROR. 

00736 

44005 I 


ISZ 

CTRA 

/DONE? 

00737 

600730 


JMP 

P0TS0A 

/NO, repeat 

00740 

600260 


JMP 

Chain 

/yes. Chain 

00741 

740040 

P0E0 

hlt 


/ERROR halt, did NOT 






/CLEAR AC. 

00742 

750001 


claicma 


/-I TO AC 

00743 

700311 


700311 


/CLEAR AC 

00744 

600742 


JMP .-2 



00745 

600742 


JMP ,-3 





/ISSUE 

kra. Wait 

AT least 200 msec for FLAG TO SET. SKIP ON FLAG 



/failure to skip 

indicates that flag 

IS NOT Set. OR KSF failure 

00746 

000001 

P0TS1 

1 



00747 

000767 


P0TS2 



00750 

100322 


SETLOC 


/-200 TO DELAYM 

00751 

000023 


oelaym 



00752 

777470 


-310 



00753 

100322 

P0TS1A 

setloc 


/-100 To ctra 

00754 

000051 


ctra 



00755 

777634 


-1A4 



00756 

700322 

P0TS1B 

kRA 


/Clear ac anD FlAG 

00757 

100333 


JHS 

OLyMS 

/delay 200 MS. 

00760 

700301 


KSF 


/SKIP IF FLAGsl 

00761 

600765 


JMP 

P0E1 

/ERROR 

00762 

440051 


IS2 

ctra 

/DONE? 

00763 

600756 


JMP 

P0TSiB 

/NO, REPEAT. 

00764 

600260 


JMP 

CHAIN 

/YES, CHAIN 

00765 

740040 

P0E1 

hlt 


/error Halt, elag is not 






/OR RSF failed. 

00766 

600753 


JMP 

P0TS1A 

/restart test. 



/ 
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/ISSUE kra. Wait at least 200 msecs for flag to set. skip on flag 
/I 000 times to verify consistent skipping 


miti 

00(^002 

P0TS2 

2 


00770 

001016 


P0TS3 


00771 

100322 


setloc 

/-200 To OElAYm 

mii7 

000023 


DELAYM 


00773 

777470 


-310 


00774 

100322 


SETlOC 

/-1000 To CTRA 

00775 

000051 


CTrA 


00776 

776030 


-1750 


00777 

700322 

P0TS2A 

kRa 

/Clear ac. Flag 

01000 

100333 


JMS DLYMS /delay 200 MS. 

01001 

700301 


KSF 

/READY? 

01002 

601010 


JMP P0E2A /NO, ERROR 

01003 

700301 


KSF 

/SKIP ON FLAGal 

01004 

601012 


JMP p0e2b /no Skip epror 

01005 

440051 


IS? CTRA 

/DONE? 

01006 

601003 


JMP .-3 

/NO, repeat 

01007 

600260 


JMP CHAIN /YES, CHAIN 

01010 

740040 

P0E2A 

HLT 

/ERR A. flag NOT SeT 





/OR KSF failure 

01011 

600777 


JMP P 0 TS 2 A 

01012 

740040 

P0E2B 

HLT 

/err b.ksf failure 

01013 

700301 


KSF 

/SKIP ON FLAg*1 

01014 

601013 


JMP .-1 

/repeat 

01015 

601013 


JMP .-2 

/REPEAT 


/ 


EJECT 
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/ISSUE kRa Wait aT least 200 msecs for flag to set. verify thaT 
/FLaG is set, reset FLaG (KRb) aNO skip on FLaG 50P times 
/TO verify That no skip occurs with flag=0. 


01016 

^0^003 

P0TS3 

3 



01017 

001050 


P0TS4 



01020 

100322 


setloc 


/-200 TO OElAYM 

01021 

000023 


DELAYM 



01022 

777470 


-310 



01023 

100322 


SETlOC 


/-500 TO CTRA 

01024 

000051 


CTRA 



01025 

777014 


-764 


/start read 

01026 

700322 

P0TS3A 

KRA 


01027 

100333 


JMs 

DLyMs 

/delay 200 Ms. 

01030 

700301 


KSF 


/READY? 

01031 

601041 


JMP 

P0E3A 

/NO, error. 

0l032 

700312 


KRB 


/YES. reset flag. 

01033 

700301 


KSF 


/ready? 

01034 

601036 


JMP 

.'►2 

/NO. OK 

01035 

601043 


JMp 

P0E38 

/YES. Error 

01036 

440051 


IS 2 

CTRA 

/DONE? 

01037 

601033 


JMP 

.-4 

/NO, REPEAT 

01040 

600260 


JMP 

CHAIN 

/YES, CHAIN 

01041 

740040 

P0E3A 

HLT 


/erra. flag NOT Set, or 

/RSF FAILED 

01042 

601026 


JMP 

P0TS3A 

/TRY again 

01043 

740040 

P 0 E 3 b 

HLT 


/err 8. elag Failed to reset 

/OR RSF SKIPPED ERRONROUSLY. 

01044 

700312 


KRB 


/CLEAR flag 

01045 

700301 


KSF 


/SKIP ON FLAG 1 

01046 

601044 


JMP 

.-2 

/REPEAT 

01047 

601044 


JMP 

.-3 

/REPEAT 


/ 

.EJECT 
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/This routine checks that no other device ca*^ cause an interrupt, 
/ano Then checks that the Reader is capable of interrupting. 


01050 

000004 

P0TS4 

4 



01051 

001112 


P0TS5 



01052 

100322 


setloc 


/Set interrupt return 

01053 

000002 


? 


/TO P0E4A. 

01054 

001062 


P0E4A 



01055 

703302 

P0TS4A 

CAF 


/CLEAR ALL FLAGS 

01056 

700042 


ION 


/enable interrupt 

01057 

740000 


NOP 



01060 

700002 


I OF 


/disable interrupt 

01061 

601065 


JMP 

. ^4 


01062 

700314 

P0E4A 

lORS 



01063 

740040 


HIT 


/UNEXPECTED INTERRUPT 

01064 

601055 


JMP 

P0TS4A 

/TRY again 

01065 

100322 


setloc 


/-1000 TO ctra 

01066 

000051 


CTRA 



01067 

776030 


-1750 



01070 

100322 


setloc 


/set interrupt return 

01071 

000002 


2 


/TO P0TS4C 

01072 

001107 


P0TS4C 



01073 

700322 


KRA 


/START READER 

01074 

700301 


KSF 


/wait FOR FLAGl 

01075 

601074 


JMP 

• -1 


01076 

700042 

P0TS4B 

ION 


/enable INT. 

01077 

740000 


NOP 



01100 

740040 

P0E4B 

HLT 


/READER failed TO INTERRUPT 






/OR interrupt system malfunction 

01101 

100322 


setloc 


/set interrupt return 

01102 

000002 


2 


/TO P0TS4C-I 

01103 

001106 


P0TS4C-1 





/SCOPE 

LOOP 



01104 

700042 


ION 



01105 

740000 


NOP 



01106 

601104 


JMP 

4-2 


01107 

440051 

/ 

P0TS4C 

IS2 

ctra 

/DONE? 

01110 

601076 


JMP 

P0TS4B 

/NO, repeat 

01111 

600260 


JMP 

Chain 

/yes# Chain 


/ 

.EJECT 
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/reader TImInG test, checks that reader ELAG ls=l NO later than 

/110 MILLISECONDS AFTER RSa INSTRUCTION IS ISSUED. 


01112 

000005 

P0TS5 

5 



01113 

001136 


P0TS6 



01114 

100322 


setloc 


/-110 TO DELAYM 

01115 

000023 


delaym 



01116 

777622 


-156 



01117 

100322 


setloc 


/-100 TO CTRA 

01120 

000051 


ctra 



01121 

777634 


-144 



01122 

700322 

P0TS5A 

KRA 


/start reader Clear ac anD 

01123 

100333 


JMS 

OLyMS 

/delay 110 MSECS 

01124 

700301 


KSF 


/READY? 

01125 

601131 


JMP 

P0E5 

/NO, ERROR 

01126 

44005I 


ISZ 

ctra 

/done? 

01127 

601122 


JMP 

P0TS5a 

/NO, repeat 

01130 

600260 


JMP 

Chain 

/yes, Chain . 

01131 

740040 

P0E5 

HLt 


/error, flag NOt 1 AFjER 






/II0 MSECS. 

01132 

700322 


kra 


/START reader clear 

01133 

700301 


KSF 


/READY? 

01134 

601133 


JMP 

.-1 

/NO. 

01135 

601132 


JMP 

.-3 

/yes, start READER AGAIN 
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/reads 256 dieferent chaRacters. each chaRacTeR is reread 1000 times 
/TO Verify consistfnct in Reading from tti. 


01136 

(^00006 

P0TS6 

6 



01137 

777777 


777777 



01140 

100322 


setloc 


/-256 To CTRA 

01141 

000051 


CTrA 



01142 

777400 


-400 



01143 

703302 

P0TS6A 

CAF 


/Clear Flags 

01144 

700322 


KRa 


/start reader clear 

01145 

700301 


KSF 


/READY? 

01146 

601145 


JMP 

.-1 

/WAIT 

01147 

7003 I 2 


KRB 


/READ char 

01150 

041177 


OAC 

WTS6a 

/Save it 

01151 

100322 


setloc 


/-1000 TO CTRB 

01152 

000052 


CTrB 



01153 

776030 


-1750 



01154 

700312 

P0TS6B 

KRB 



01155 

041200 


DAC 

WTS6B 

/SAVE 

01156 

740001 


CMA 



01157 

340061 


TAD 

Kl 


01160 

341177 


TAD 

WTS6A 


01161 

750200 


SZAICLA 


/RESULT 0? 

01162 

601170 


JMP 

P0E6A 

/NO, ERROR. 

01163 

440052 


ISZ 

CTRB 

/reread 1000 times? 

01164 

601154 


JMP 

P0TS6B 

/NO GO read aGaIN 

01165 

440051 

P0TS6C 

isz 

CTRA 

/read 256 characters? 

01166 

601143 


JMP 

P0TS6A 

/NO 

01167 

600260 


JMP 

CHAIN 

/YES, CHAIN 

01170 

201200 

P0E6A 

LAC 

HTS6B 

/load bad char 

01171 

740040 


hlt 


/ERR A. BAD CHAR IN AC 






/PRESS CONTINUE. 

01172 

201177 


LAC 

WTS6A 

/expected char in AC 

01173 

740040 


HLT 



01174 

601165 


JMP P0TS6C 




/SCOPE 

LOOP 



01175 

700312 


KRB 


/READ character 

01176 

601175 


JMP 

.-1 

/REPEAT 

01177 

000000 

WTS6A 

0 



01200 

000000 

WTS6B 

0 




/ 
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/PRqGRAm 1. ASR33/35 TCLETYpE BASIC oUTpUT TESTS. pRqGrAm CHECKS 
/OUTPUT lOT'S, interrupt. TIMING. 

01201 100322 PRGl SETLOC /SET KSTaRT TO INITIAL 

01202 000020 KSTaRT /ROUTINE ADDRESS 

01203 001205 P 1 TS 0 

01204 600233 JMP SRSeT /STaRT PROGRAM 

/ 

/i^'^tls^and Wait aT least 200 msecs for flag to set. skip on elaGsI (Tsd. tsf shoJ 
/SKIP OR error Halt pie0a occurs, indicating flaG not Set, or tsf failure. 

/2. with FLAG = 1, sXIPS on flag 1000 times to test for consistent S'<IPPlNG. 

/FAILURE TO SKIP CAUSES ERROR HALT PlE 0 B. 


01205 

000000 

P 1 TS 0 

0 



01206 

001235 


PlTSl 



01207 

100322 


SETLOC 


/-200 TO DELAYM 

01210 

000023 


delaym 



01211 

777470 


-310 



01212 

100322 


SETLOC 


/-1000 TO CTRA 

01213 

000051 


CTRA 



01214 

776030 


-1750 



01215 

750000 

P1TS0A 

cla 


/clear AC 

01216 

700406 


TLs 


/start printer/punch 

01217 

100333 


JMS 

dlyms 

/DELAY 200 MS 

01220 

700401 


TSF 


/READY? 

01221 

601227 


JMP 

P1E0A 

/NO, ERROR. 

01222 

700401 

P1TS0B 

TSF 


/SKIP ON flag 1 

01223 

601231 


JMP 

P1E0B 

/NO SKIP. E^RROR 

01224 

440051 


IS2 

ctRa 

/SKIP DONE? 

01225 

601222 


JMP 

P 1 TS 0 B 

/NO, REPEAT 

01226 

600260 


JMP 

CHAIN 

/YES, CHAIN 

01227 

750040 

PlE0A 

HLT’CLA 


/ERR A. NOT ready AFTER 200 

01230 

601215 


JMP 

P1TS0A 

/OR tsf failure 

01231 

750040 

P 1 E 0 B 

HLTIcLa 


/eRR b- tsf Failed to skip 



/SCOPE 

LOOP 



01232 

700401 


TSP 



01233 

601232 


JMP 

.-1 


01234 

601232 

/ 

JMP 

.-2 
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/ROUTINE 1. 




/ISSUE TCF TO clear 

flag, skip on flag 

1000 times to verify THaT no 



/SKIP OCCURS WITH FLAGS0 


01235 

(^00001 

PlTSl 1 



01236 

001256 

P1TS2 



01237 

100322 

setloc 


/-1000 TO CTRA 

01240 

000051 

CTRA 



01241 

776030 

-1750 



01242 

700402 

TCF 


/Clear flag 

01243 

700401 

PlTSlA TSf 



01244 

741000 

SKP 



01245 

601251 

JMP 

PlEl 


01246 

440051 

ISZ 

CTRA 


01247 

601243 

JMP 

PlTSlA 


01250 

600260 

JMP 

CHAIN 


01251 

750040 

PlEl hlticla 


/ERR. after TcF, TSF INSTRUCTION 




/SKIPPED. 




/SCOPE LOOP 



01252 

700402 

TCF 


/CLEAR flag 

01253 

700401 

TSF 


/SKIP ON FLAG=1 

01254 

601253 

JMP 

.-1 


01255 

601253 

jmp 

.-2 



/ 
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/ 


/ROUTINE 2 

/ISSUE tls. Wait for flagi. 
/SHOULD OcrUR. IF SKIP, TcF 


01256 

000002 

PlTS2 

2 


01257 

001301 


P1TS3 


01260 

100322 


setloc 


01261 

000051 


ctra 


01262 

777634 


-144 


01263 

750000 

P1TS2A 

cla 


01264 

700406 


TLS 


01265 

700401 


TSF 


01266 

601265 


JMP 

.-1 

01267 

700402 


TCP 


01270 

700401 


TSF 


01271 

741000 


SKP 


01272 

601276 


JMP 

PlE2 

01273 

440051 


IS? 

CTRA 

01274 

601263 


JMP 

PiTS2A 

01275 

600260 


JMP 

CHAIN 

01276 

750040 

P1E2 

HLTtcLA 




/SCOPE 

LOOP 


01277 

700402 


TCF 


01300 

601277 

/ 

JMP 

.-1 



.EJECT 



CLEAf^ elag <tcf). Skip on flagi. no skip 
instruction (clear ELaG) EaILED. 


/-100 TO CTRA 


/PUNCH/PRINT 
/Wait for flagi 

/CLEAR flag 
/SKIP IF ELAG 1 

/SKIPPED, error 
/done? 

/no, repeat 

/YES, CHAIN 

/err. TCE EaILED TO RESET FLaG 

/clear flag 
/repeat 
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/ROUTINE 3. 

/This routine cHEct^s th^^t no other device ca^ ca^^^e aN interrupt. 


* 

- - 

/AnO then 

CHECKS 

THAT THE 

pUnCh/prInTEr can An Interrupt 

01301 

000003 

PiTS3 

3 



01302 

001347 


PlTS4 



01303 

100322 


SlTLOC 


/SET interrupt return 

01304 

000002 


2 


/TO PlE2A 

01305 

001317 


P1E3A 



01306 

703302 

PiTS3A 

CAF 


/CLEAR ALL FLAGS. 

01307 

700406 


TLS 



01310 

700401 


TSF 



01311 

601310 


JMP 

.-1 


01312 

700402 


TCF 


/clear PUNCH/PRINTER FLAG 

01313 

700042 


ION 


/enable INT. 

01314 

740000 


NOP 



01315 

700002 


lOF 


/DISABLE INT. 

01316 

601321 


JMP 

.♦3 


01317 

740040 

PlESA 

HLT 


/UNEXPECTED INTERRUPT 

01320 

601306 


JMP 

PiTS3A 

/TRY again 

01321 

100322 


SETLOC 


/-1000 TO ctra 

01322 

000051 


ctra 



01323 

776030 


-1750 



01324 

100322 


SETlOC 


/set Interrupt return 

01325 

000002 


2 


/TO P1TS3C 

01326 

001344 


P1TS3C 



01327 

750000 


CLA 



01330 

700406 


TLS 


/start PUNCH/PRINTER 

01331 

700401 


TSF 


/flag 1? 

01332 

601331 


JMP 

.-1 

/WAIT. 

01333 

700042 

PlTSsB 

ION 



01334 

740000 


NOP 



01335 

740040 

PlE3e 

HLT 


/PUNCH/PRINTER FAILED TO 






/INTERRUPT OR INTERRUPT 





/malfunction. 

01336 

100322 


SETLOC 



01337 

000002 


2 



01340 

001343 


P1TS3C- 

1 


01341 

700042 


ION 


/SCOPE LOOP 

01342 

740000 


NOP 



01343 

601341 


JMP 

.-2 


01344 

440051 

P1TS3C 

IS2 

ctra 

/DONE? 

01345 

601333 


JMP 

PiTS3B 

/NO. repeat 

01346 

600260 

/ 

JMP 

CHAIN 

/YES. CHAIN 



/ 
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PAGE 21 


15TTY1 


/ROUTINE 4 

/TIMING Test, checks that flag is 1 NO LATeR than 110 MSECS. 
/AFTER TLS INSTRUCTION. 


01347 

000004 

P1TS4 

4 



01350 

777777 


777777 



01351 

100322 


setloc 


/-110 TO OElAYM 

01352 

000023 


DELAYM 



01353 

777622 


-156 



01354 

100322 


setloc 


/-100 TO CTRA 

01355 

000051 


ctra 



01356 

777634 


-144 



01357 

700406 

P1TS4A 

tls 


/start punCh/reader 

01360 

100333 


JMS 

OLyMS 

/delay 110 MSECS. 

01361 

700401 


Tsr 


/FLAG 1? 

01362 

601366 


JMP 

PlE4 

/NO. error 

01363 

440051 


IS? 

ctra 

/YES. DONE? 

01364 

601357 


JMP 

PlTSAA 

/NO. REPEAT 

0 I 365 

600260 


JMP 

CHAIN 

/YES. chain. 

01366 

750040 

P1E4 

HLTICLa 


/ERR. FLPG NOT 1 110 MSECS 






/Af-TER TLS INSTRUCTION 

01367 

700406 


TLs 


/SCOPE LOOP, start PRINTER 

01370 

700401 


TSF 


/WAIT FOR FLAG 1 

01371 

601370 


JMP 

.-1 


01372 

601367 


JMP 

.-3 

/REPEAT. 



/ 

.EJECT 
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/program 2. ASR33/35 TELETYPE READER TEST. CHECKS ABILITY OF READER 

/TO correc'^lt Re^o AT eUll speeq anq wiTh ran[)Om stalls. 


01373 

100322 

prG2 

SETLqC 


/sEt Kstart tq initial 

01374 

000020 


kstart 


/ROUTINE AOORESS 

01375 

001377 


P 2 TS 0 



01376 

600233 


JMP SRSET 


/START 



/ROUTINE 

0 





/READ 4095 characters, aT FULL SPEED. MaTcHING EaCH CHaRaCTER 



/against 

binary count Pattern 


01377 

000000 

P 2 TS 0 

0 



01400 

001426 


P2TS1 



01401 

100524 


JMS 

SYNK 

/SYNC READER 

01402 

100322 


SETlOC 


/-4095 TO CTRA 

01403 

000051 


CTRA 



01404 

770001 


-7777 



01405 

100406 


jms 

initpt 

/Initialize pattern 

01406 

100415 

P 2 TS 0 A 

JMS 

getptt 

/GET Pattern character 

01407 

041415 


DAC 

SB 0 

/STORE at SB 0 

01410 

700322 


KRA 


/read 

01411 

700301 


KSF 


/READY? 

01412 

601411 


JMP 

.-1 

/NO, WAIT 

0I4I3 

7003 I 2 


KRB 


/YES, READ 

01414 

100506 


JMS 

CHCK 

/GO CHECK character 

01415 

000000 

SB0 

0 



01416 

601422 


JMp 

P2E0A 

/ERROR 

01417 

440051 

P 2 TS 0 B 

IS? 

CTRA 

/OK. DONE? 

01420 

601406 


JMP 

P2TS0A 

/NO. REPEAT 

01421 

600260 


JMP 

CHAIN 

/YES, chain 

01422 

740040 

P 2 E 0 A 

HLT 


/ERR HALT A. BAD CHaR IN AC. 






/PRESS CONTINUE. 

01423 

201415 


LAC 

SB0 


01424 

740040 


HLT 


/CORRECT char IN AC 

01425 

601417 


JMP 

P2TS0B 



/ 
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/ROUTINE 1 

/READS 200PI characters. RaNDEM DELAY BETWEEN CHARACTERS. 
/Each character read is matched agaInst count pattern. 


01426 

000001 

P2TS1 

1 



01427 

001457 


P2TS2 



01430 

100524 


JMS 

SYNK 

/SYNC reader. 

01431 

100322 


setloc 


/-2000 TO CTRA 

01432 

000051 


CTRA 



01433 

774060 


-3720 



01434 

100406 


JMS 

INITPT 

/INITIALIEE pattern 

01435 

100415 

P 2 TS 1 A 

JMS 

getptt 

/SET Pattern character 

01436 

041446 


dac 

SBl 


01437 

700322 


KRA 


/READ 

01440 

100474 


JMS 

DLCNT 

/GENERATE DELAY COUNT 

01441 

100333 


JMS 

olyms 

/DELAY 

0144? 

700301 


KSE 


/WAIT EOR 

01443 

601442 


JMP 

.-1 

/ready. 

01444 

700312 


KRB 


/read character 

01445 

100506 


JMS 

CHCK 

/GO CHECK character 

01446 

000000 

SBl 

0 



01447 

601453 


JMP 

P2E1A 

/ERROR 

01450 

440051 

P 2 TS 1 B 

IS2 

CTRA 

/DONE? 

01451 

601435 


JMP 

P 2 TSIA 

/NO. repeat 

01452 

600260 


JMP 

CHAIN 

/YES, chain 

01453 

740040 

P2E1A 

HLT 


/error halt a. bad char 






/press CONTINUE 

01454 

201446 


LAC 

SBl 


01455 

740040 


HLT 


/CORRECT char IN AC 

01456 

601450 


JMP 

P2TS1B 



/ 

•EJECT 


AC 
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/ROUTINE 2 

/read l00 GROUPS OF characters. EaCH GROUP IS OF RaNOOM LENGTH. 

/Each group uses * fixed oeLaY dftfRmineo a^ Ra'^oom oelaY cHaNGeS between groups 


0^457 

000002 

P2TS2 

2 



01460 

777777 


777777 



01461 

100524 


jMS 

synk 

/sync reader 

01462 

100322 


sEtLOC 


/-I00 fG GypA 

01463 

000051 


ctra 



01464 

777634 


-144 



01465 

100406 


jMS 

InITPT 

/Initialize pattern 

01466 

100474 

P2TS2A 

JMS 

OLCNT 

/generate delay count 

01467 

100455 


JMS 

CHRCNT 

/GENERATE AND STORE 

01470 

000052 


ctrb 


/block length 

01471 

100415 

P2TS2B 

JMS 

getptt 

/GET Pattern character 

01472 

041501 


OAC 

SB2 


01473 

700322 


KRA 


/READ 

01474 

100333 


JMS 

OLYMS 

/delay 

01475 

700301 


KSF 


/ready? 

01476 

601475 


JMP 

.-1 

/NO, wait 

01477 

700312 


KRB 


/REaD character 

01500 

100506 


JMS 

ChCk 

/qO ChECk Character 

01501 

000000 

SB2 

0 



01582 

601510 


JMp 

P2E2A 

/error. 

01503 

440052 


IS? 

CTRB 

/GROUP DONE? 

01504 

601471 


JMP 

P2TS2B 

/NO. 

01505 

440051 


ISZ 

ctra 

/YES. ALL GROUPS DONE? 

01506 

601466 


JMP 

P2TS2A 

/NO. 

01507 

600260 


JMP 

CHAIN 


01510 

740040 

P2E2a 

HLT 


/err Halt a. bad chaR in ac 






/press CONTiNE. 

01511 

201501 


LAC 

SB2 


01512 

740040 


HLT 


/correct char in ac 

01513 

601503 


JMP 

SB2*2 



/ 
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P50C^000 .END 

01514 000405 *L 

01515 000375 *L 


NO error lines 



